home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 April / Ahoy_Magazine_85-04_1985_Double_L.d64 / hop around 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  115 lines
  1. 1 y=1:print"[147]"
  2. 2 goto80
  3. 3 e=+1:pokea,32:pokea+h,32:a=a+e:ifpeek(a+80)=32then7
  4. 4 goto37
  5. 5 e=-1:pokea,32:pokea+h,32:a=a+e:ifpeek(a+80)=32then7
  6. 6 goto37
  7. 7 l=.:restore
  8. 8 pokea,32:pokea+h,32:l=l+1:a=a+h:ifpeek(a+80)=4then12
  9. 9 ifa=bora>1944then49
  10. 10 readtw,t:pokea,.:pokea+h,1:pokes+1,tw:pokes,t:goto8
  11. 12 ifl>=9then55
  12. 13 pokes+1,0:pokes,0:goto37
  13. 14 restore:fortt=1to21:readtw,t:next:bj=bj+1
  14. 15 readtw,t:pokea,32:pokea+40,32:ifpeek(a-40)=4thena=a+1:goto7
  15. 17 pokes+1,tw:pokes,t:ifa<1064thena=a+1:goto7
  16. 18 ifpeek(a-40)<7then55
  17. 19 a=a-40:pokea,.:pokea+40,1:goto15
  18. 20 poke53281,1:poke53280,2:print"[147]hop around!"
  19. 21 print"[163][163][163][163][163][163][163][163][163][163][163]":print"by kevin dewey"
  20. 22 print"use joystick[157][157][157][157][157][157][157][157][157][157][157][157]for movement"
  21. 23 print"[144]hit any key"
  22. 24 goto600
  23. 26 pokevv+21,0:goto58
  24. 27 gu=1:pokeb-40,2:goto55
  25. 30 a=1797:b=1065:s=54272:pokes+5,200:pokes+6,200:pokes+24,15:ll=56320:c=1142
  26. 31 mz=7:fort=stos+24:poket,0:next:pokes+24,15:pokes+3,8:pokes+2,0:pokes+5,144
  27. 32 h=40:print"dddddddddddddddddddddddddddddddddddddddd";
  28. 34 pokeb,2:pokeb+40,3:d=peek(ll):ifd=123then5
  29. 35 pokec-40,6:pokec,mz:ifd=119then3
  30. 36 ifd=111then14
  31. 37 pokea,.:pokea+40,1:ifpeek(a+80)=32then7
  32. 38 m=int(rnd(1)*9)+1:ifm=9andp=.then42
  33. 39 ifa=bthen27
  34. 40 ifp=1thenreturn
  35. 41 goto34
  36. 42 n=int(rnd(1)*37)+1144:pokes+6,243:pokes+1,4:pokes,112
  37. 43 p=1:foro=nton+840step40:pokeo,5:gosub34:pokeo,32:o=o+40:ifo=aoro=a+40then55
  38. 44 pokes+4,65:ifpeek(o+40)=4thenpokes+4,129:o=o+1
  39. 45 pokes+4,33:next:pokes+1,0:pokes,0
  40. 46 p=0:poken,32:n=.:pokeb,32:pokeb+40,32:b=b+y:ifpeek(b)=6orb>1102then51
  41. 47 ifmz=8thenmz=7:goto34
  42. 48 ifmz=7thenmz=8:goto34
  43. 49 ifa=bthen64
  44. 50 goto55
  45. 51 restore:la=1062:lp=1904:x=33:pokes+2,100:pokes+3,100:poke1102,32:poke1142,32
  46. 52 fort=latolpstep+39:poket,7:poket-40,6:poket-1,3:poket-41,2:readw,tt:pokes+4,x
  47. 53 pokes+1,w:pokes,tt:pokes+4,17:poket,32:poket-40,32:poket-1,32:poket-41,32
  48. 54 pokes+4,65:next:goto150
  49. 55 rr=2:pokea,32:pokea+40,9:pokea+41,10:ifgu=1thenpokeb,3:gu=.:pokes+5,200
  50. 56 pokes+6,100:pokes+4,129:pokes+1,33:pokes,135:fort=15to0step-1:pokes+24,t
  51. 57 fortt=1to30:next:next:pokes+1,0:pokes,0:fort=1to500:next:poke53272,21:goto26
  52. 58 print"[147][144]you";:gosub63:print"[157][157][157]bombed";:gosub63
  53. 59 print"[157][157][157]out!":gosub63:print"hit any key"
  54. 61 ifpeek(197)<>64thenrun
  55. 62 goto61
  56. 63 fort=1to1000:next:return
  57. 64 pokeb-1,.:pokeb+39,1:restore
  58. 65 fort=bto1970step+42:poket,2:poket+40,3:readtt,tw:pokes,tw:pokes+1,tt
  59. 66 pokes+4,33:fortg=1to15:next:poket,32:poket+40,32:pokes+4,17:next
  60. 67 fort=7to0step-1:poke2040+t,0:pokes+1,14:pokes,239:pokes+4,129:pokes+24,t*2
  61. 68 pokes+4,33:next:pokes+1,0:pokes,0:pokevv+21,0
  62. 69 rr=1:poke53272,21:print"[147][156]you did it!":print"      you saved sweet doris"
  63. 70 print"      with only";bj;" jumps!"
  64. 71 ifbj>jbthenprint"a[157]new[157][157][157]high!!":jb=bj
  65. 75 print"hit any key."
  66. 76 ifpeek(197)<>64thenrun
  67. 77 goto76
  68. 78 stop
  69. 80 poke52,48:poke56,48:clr:goto100
  70. 81 fori=1to74:readj:next:fori=12288to12377:readj:pokei,j:next
  71. 82 data14,24,13,78,12,143,11,218,11,48,10,143,9,247,9,104,8,225,8,97,7,233,7,119
  72. 83 data7,12,6,167,6,71,5,237,5,152,5,71,4,251,4,180,4,112,4,112,4,180,4,251,5,71
  73. 84 data5,152,5,237,6,71,6,167,7,12,7,119,7,233,8,97,8,225,9,104,9,247,10,143
  74. 85 data60,126,219,255,231,126,66,60,24,255,189,189,60,36,36,102,126,90,126,255
  75. 86 data129,195,102,60,24,153,189,255,126,255,36,102,254,170,254,0,0,0,0,0,28,28
  76. 87 data28,28,8,62,28,8,60,126,106,247,189,169,60,24,189,254,120,60,124,71,33,96
  77. 88 data222,127,30,60,62,226,132,6,56,126,221,245,245,221,126,56,112,65,127,248
  78. 89 data248,127,65,112,0,0
  79. 90 goto200
  80. 91 poke53272,(peek(53272)and240)+12:print"[147]":fort=1to990:print" ";:next
  81. 92 print"[154]dddddddddddddddddddddddddddddddddddddddd";
  82. 93 print"dddddddddddddddddddddddddddddddddddddddd";
  83. 94 print"dddddddddddddddddddddddddddddddddddddddd";
  84. 95 print"dddddddddddddddddddddddddddddddddddddddd";
  85. 96 pokevv+23,25:pokevv+29,13:pokevv+27,255:pokevv,18:pokevv+1,208:pokevv+4,125
  86. 97 pokevv+5,229:pokevv+2,80:pokevv+3,229:pokevv+6,90:pokevv+7,208
  87. 98 pokevv+8,60:pokevv+9,208:pokevv+10,160:pokevv+11,229:pokevv+21,255:goto30
  88. 99 stop
  89. 100 poke56334,peek(56334)and254:poke1,peek(1)and251
  90. 110 fori=0to511:pokei+12288,peek(i+53248):next
  91. 120 poke1,peek(1)or4
  92. 130 poke56334,peek(56334)or1
  93. 140 goto81
  94. 150 pokes+1,0:pokes,0:pokea,32:pokea+40,9:pokea+41,10:fort=1to50:print:next
  95. 155 x=54272
  96. 157 pokevv+27,.
  97. 160 poke53272,21:forqw=1944to1184step-78:pokeqw,8:pokeqw+x,0:pokeqw+1,1
  98. 165 pokeqw+1+x,0:forsr=1to400:next:next:pokevv+21,0:goto58
  99. 200 rem sprites!!!!
  100. 210 vv=53248:poke2040,209:poke2041,209:poke2042,209:poke2043,209
  101. 212 poke2044,209:poke2045,209
  102. 213 pokevv+43,8:pokevv+44,10
  103. 215 pokevv+39,10:pokevv+40,10:pokevv+41,2:pokevv+42,8
  104. 220 poke2046,196:fortt=13376to13438:readt:pokett,t:next
  105. 300 data0,0,0,0,0,0,0,16,0,0,56,0,0,120,0,0,124,0,0,254,0,1,255,0,7,119,0,15,175
  106. 310 data128,31,223,128,27,254,192,21,253,240,30,251,248,63,127,120,63,188,252
  107. 320 data127,225,252,252,255,252,219,255,254,231,255,255,255,255,255
  108. 500 goto20
  109. 600 y=1
  110. 601 geta$:ifa$=""then601
  111. 610 ifa$="[133]"then620
  112. 611 goto91
  113. 620 y=y+1:ify>5theny=1
  114. 630 print"level ";y:goto601
  115.